home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
CRS
/
crs20.d81
/
ect.prg
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2009-10-10
|
1KB
|
19 lines
5 REM SCREEN EFFECT
10 PRINT"[147]"
30 FOR J=679 TO 693:READ K:POKE J,K:NEXT
40 DATA 172,032,208,202,142,032,208,165
50 DATA 198,240,248,140,032,208,096
60 PRINT"SCREEN EFFECTS-JOE PORTERA"
70 POKE 646,1:POKE 53280,1:POKE 53281,1
80 SA=49152
90 FOR J=0 TO 24:READ K:POKE SA+J,K:CS=CS+K:NEXT
100 IF CS<>3953 THEN PRINT"COOL":STOP
110 DATA 200,140,033,208,140,032,208,162
120 DATA 094,202,016,253,165,203,201,063
130 DATA 208,238,165,203,201,064,208,250
140 DATA 096
150 SYS SA
160 PRINT"<RETURN>";:INPUT
170 SYS 679
2010 FOR J=0 TO 255:POKE 53270,J:NEXT:POKE53270,200